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Perl Strings Over View 


لغة البيرل مثل جميع اللغات البرمجية الاخرى التي تحتوي على السلاسل النصية او ما يعرف في الوسط البرمجي 
بÛl strings‏ 
غالبا ما اخدذنا علی هذا المصطلح علی انه السلاسل النصية يجب ان تکون محصورة بين علامات الاقتباس هذه 
المعلومة صححيا ولكن في لغة البيرل من الممكن ان يتم طباعة سلسلة نصية من غير وجود علامات الاقتباس 
اليكم الطرق التي من الممكن ان يتم طباعة السلاسل النصية فيها وهي كما يلي في هذا الكود 
*Code(1)‏ 
a= "www.programming-fr34ks"';‏ 
$b='programming-freaks';‏ 
ŞCc=seCUritygUrUS;‏ 
print $a,"\n",$b,"\n",$c,"\n";‏ 


وعند تنفيذ الكود هذا ستكون هذه الصورة هي ناتج التنفيذ كما يلي 


Figqure(1) 
هذا هو ناتج تنفيذ الكود الموجود في الاعلى عن طرق طباعة السلاسل النصية‎ 
وفي الصفحات القادمة سوف نتعمق في برمجة السلاسل النصية واساليب عملها المختلفة‎ 
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Perl Substrings 
السلسلة النصية هي عبارة عن كلمة او جملة او مجموعة من الكلمات التي تشكل السلسلة النصية‎ 
المتكاملة ولكن ماذا لو أراد احد أن يعمل وعمج على جزء من السلسة النصية ففي هذه الحالة لابد‎ 
من ايجاد طريقة تساعدنا على عمل ما نحتاج من تحرير او طباعة او استبدال في السلسلة النصية لذا‎ 
ةuئأ٣ في وضع كهذا الوضع الحل الانسب هو يتم بأستعمال دالة ال‎ 


ويكون تمثيل هذه الدالة برمجيا هو كما يلي 
*code (2)‏ 


pa="Hi,I[am perl programmer"; 
$b=(substr($a,4)); 
print $b; 
هذه هي احدى طرق استعمال هذه الدالة نلاحظ انه عند تنفيذ هذا الكود يكون ناتج التنفيذ الناتج عنه هو كمايلي في‎ 
هده الصورة‎ 


Figure(2 
الطباعة ان البيرل قامت بطباعة السلسة النصية الموجودة‎ A By 
في البرنامج بداية من الحرف الرابع لانه تم اخباره ان يقوم بذلك ولو تم اعلام البيرل بغير رقم لقامت بعرض‎ 
نتيجة اخرى غير هذه النتيجة هذا الوضع الاول من اوضاع تمثيل هذه الدالة الان لاحظ الوضع او التمثيل اللاي‎ 
الخاص بهذه الدالة وهو كما يلي في الكود التالي‎ 


1 


“code(3) 

$a="Hi,lam perl programmer"; 
$b=(substr($a,4,10)); 

print $b; 


Figqure(3) 
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الان عند تنفيد هذا السكريبت البرمجي تلاحظ انه عند التنفيذ سيعرض الناتج الاتي 
لاحظ انه هنا اهم فقرة يجب عليك ان تعرفها هي انه الرقم عشرة هنا يعامل على انه أع؟]off‏ 
ولو دققت الملاحظة في البرنامج تلاحظ انه تم عد عشر حروف من موقع الحرف الرابع الى ما بعده بعشرة 
حروف 
فا اکا کن ا اترم نے وهال ضا کل ر مح آخر ولال وھ کنا کے 
*Code(4) ۰ ٠ ٠ ۰‏ 
pa="Hi,I[am perl programmer";‏ 
pb=(substr($a,7,4)) = "Fr34K"';‏ 
print $a;‏ 
print "\n";‏ 
هذا كان التمثيل البرمجي للوضع التالث الخاص بهذه الدالة ونلاحظ ان الذي حدٿث في هذا السكريبت البرمجي هو 
انه تم استبدال الكلمة بيرل التي تكون مبدوئة بالحرف سبعة في الجملة ويكون طولها هو بالضبط 4 احرف تم 
استبدالها بالكلمة التي تم تحدديها في الفقرة الاخيرة من السطر البرمجي الثاني الذي وهنا يتم اعتبار كلمة 
newsiring lil سlwا ale Fr34k‏ 
ولو نفذت البرنامج ستكون ناتج العملية هو الأتي في الصورة 


Figqure(4) 

أما عن التمثيل الرأبع فهو يختلف تماما عن الاوضاع التي تم ذكرها قبل قليل وهي كما يلي 
*Code(5)‏ 
pa="HlI,iam perl programmer";‏ 
$b=(substr($a,-10));‏ 
print $b,"\n"';‏ 
قبل الكلام عن ناتج تنفيذ هذا البرنامج فأن هذه الطريقة غالبا ما يتم أطلاق عليها اسم طريقة القراءة العكسية وناتج 

تنفيذ هذه الطريقة هو كما ظاهر في هذه الصورة 


Figqure(5) 
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How to not use Temp Values 


لو كنت تريد ان تحول القيمة الموجودة في المتعير الاول الى متغير أخر ولكن من دون استعمال متغير ثالث على 
ساس اعتباره مخزن موقت لحل هذه المشكله هذه فان اغلب المبرمجين يتبعون هذه الطريقة الموجودة فى هذا 
الكود آلاتیى ۰ 
*Code(6) ۰‏ 
pa="Hi,iam perl programmer";‏ 
temp =$a;‏ 
$b=$a;‏ 
$b=$temp;‏ 
print $b,"\n"';‏ 
ولكن كما ذكرنا فأن هذه الطريقة هي طريقة غير مرغوبة وهي ايضا طريقة مزعجة لذا فأنه من الممكن استعمال 
طريقة أخرى تكون الطريقة الاخرى خالية من أي استعمال للمتغيرات المؤقتة ويمكن ان يتم عمل ما ذكر اعلاه في 
هذا الكو د البسيط 


*Code(7) 

a= "programming-fr34ks"'; 
$b="securitygurus"'; 
($a,$b)=($b,$a); 

print $a, "\n",$b,"\n"; 


لاحظ انه الكود هو كود سهل لايحتاج الى توضيح وناتج تنفيذه هو كما الاتي في الصورة المدرجة ادناه 


Figure(6) 
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Converting Between Characters And Values 
هذه العملية تتم من خلال استعمال نوعين من الدوال هذه الدوال هي:-‎ 
ا‎ 
2- ord 
حيث تعمل الدالة الاولى على تحويل الرقم الى قيمة حرفية‎ 
بينما تعمل الثانية على تحويل الحرف الى قمية عددية ويكون التمثيل البرمجي الخاص بهاتين الدالتين هو كما يلي‎ 
*Code(8) 
Sa=115; 
$b="s"; 
print (chr($a)); 
print "\n"; 
print (ord($b)); 
print "\n"; 


والان لو نفذت البرنامج التالي ودققت في ناتج التنفيذ سيكون الناتج هو كما يلي في الصورة الاتية 


Figqure(7) 


لاحظ من العملية انه تم عمل 0۸۷6١‏ بين قيم المتغيرات الموجودة في البرنامج 
لمجرد التذكير فأن دالة ال 0۲١‏ تستعمل لايجاد قيم ال زامء للقيم المعطاة لها 
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Processing a String One Character at a Time 


تخيل انه لديك سلسلة نصية مكونة من عدد من الحروف وانت تريد ان تعمل عزل لهذه السلسة النصية بحيث انه 
في النهاية ستحصل على الحورف الاولية المكونة لهذه السلة النصية من دون تكرار فيها اي بمكن القول انك فلي 
هة الخلة متحضل غل المواة الار ل و هى الحروفت المكر نة اة النضبا دون تك ار فى هة الحررف ` 
وهذه العملية غالبا ما يتم حلها من خلال التعابير المنتظمة والتي سوف نتطرق اليها فيما بعد ولكن الان سنلجاً الى 
هذه الطريقة الخالية من فن التعابير المنتظمة و اليكم الطريقة 


في البداية سيكون العمل مع دالة ال أامء مع نموذج ١6۲)اهم‏ فارغ لكي يتم كسر السلسلة النصية الى 
individual characters‏ 
والتمثيل البرمجي لهذه العملية هو كما يلي 
*Code(9)‏ 
orare=(Û;‏ 
$string = "we are perl propgrammer'"';‏ 
foreach $char (split //,$string){‏ 
$rare{ $char}+ +;‏ 
1 


print "the characters of the $string is ",sort (keys %orare); 


Figqure(8) 
الان لو نعمل اوفر فيو على هذا السكريبت تلاحظ فعلا انه تم استعمال الدالة ]زامء من أجل ان تكسر السلسة‎ 


النصية الى ٣s‏ عام مجع اجمuهأvاdم|‏ وتلاحظ فعلا انه تم وضع المتغير الذي يحمل السلسة النصية معها 
في جملة تكرار هده هي فكرة البرنامج وتجدر الاشارة الى ان البرنامج فكرته ود مقتبسة من كتاب 

*Code(10) 
O'Reilly - Perl Cookbook 2nd Edition.chm 
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Reversing the Strings 
كيف من الممكن ان تتم عمليات عكس السلاسل النصية ؟؟‎ 
طبعا تتم عمليات عكس السلاسل النصة من خلال استعمال الدالة التي تعمل على عكس المتغيرات وهي دالة ال‎ 


٥۷ع‏ ويكون تمثيل هذه الدالة برمجيا كما ال 
*Code(11)‏ 


$a="We Are Perl Programmer"; 
$b=(reverse($a)); 
print $b,"\n"'; 


وعند تنفيذ هذا المقطع البرمجي يكون الناتج من تنفيذه هو كما الاتي 


Figure(9) 
وبالاضافة الى هذه الخاصية فأن لهذه الدالة أمكانيات اخرى من الممكن الاستفادة منها ولكن سيتم شرحها في‎ 
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How To Shrink Tabs And How to Expand Spaces 


في تعاملنا في كثير من حالات السلاسل النصية قد نصادف skip squence the \( J|‏ 
في حالات متعددة قد تسبب هذه الحالات بعض التشويش للمتسخدم لذا من الممكن ان يتم تقليصها من خلال 
استعمال ذال الاستذال کما یل 
*Code(12) ٤‏ 
$_="Spawnl\tis\tperl\tprogrammer'"';‏ 
s/At//9g;‏ 
print $_;‏ 
لاحظ في هذا المثال تم استبدال كل رموز الهروب الخاصة بال(|) الى مجرد فراغات هذه العملية تسمى 
Compressing tabs‏ 
ومن الممكن ان تتم هذه العملية بالعكس اي من خلال الفراغ نعمل عمليات توسع للرمز الهروب ال(ا) 


وتسمى هذه العملية وها 0٩٣2م×‏ ويكون تمتيلها البرمجي كما يلي في هذا المثال السكريبت 


*Code(13) 

p_= "Spawn is perl programmer"; 
s/ AtU/g; 

print $_; 


E GEC, 


Figqure(10) 
احب أن انوه الى فقرة وهي سبب وجود الحرف(يى) في نهاية استعمال الدالة الخاصة بعملية الاستبدال هذه الفقرة‎ 
سيتم ذكرها لاحقا في مواضيح لاحقة‎ 
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Variables In User Output 


هل من الممكن ان يتم استعمال متغير مسند له قيمه سلسلة نصية ان يتم استعمالها مخرجات اليوزر؟؟ | 
في لغة البيرل هذه العملية ممكنة ويكون اسلوب استعمالها البرمجي كما يلي من خلال السكريبت المدرج ادناه 
*Code(14)‏ 
$pname="Spawn"';‏ 
Şlang="perl";‏ 
page="21";‏ 
print "My name is $name,\nmy Favorite G33k lang is $lang\niam $age years old\n";‏ 
في الواقع أن أساس عمله هو سهل ومفيد في السكريبت اعلاه يوجد متغير اسمه $۸4۳٥‏ هذا المتغير يحمل قيمة 


لسلسلة نصية قيمتها هي W١‏ م5 وعند تنفيذ البرنامج اخبرنا مترجم البيرل انه اطبع جملة 
my name is‏ والى جوارها استعمل القيمة المخزونة داخل المتغير الذي يحمل اسم $name‏ 
هذه هي فكرة السكريبت المذكور في الاعلى وصورة ناتج التنفيذ الخاصة به هي 


Figure(11) 
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Controlling Case 
محور هذا الموضوع هو كيفية التحكم في حالة الاحرف ما بين الكبيرة و الصغيرة و الدوال التي تكون مسئولة عن‎ 
هذه العملية‎ 
وسوف نتكلم عن جميع الدوال والاساليب التي يتم من خلالها التحكم في الاحرف‎ 
1-uc(upper case) 
القثل ارمح الخاص جهذه الذالة هو‎ 
*Code(15) ٠ 
Şa="Spawn perl programmer"; 
print (uc($a)); 
print "\n"; 
عمل هذه الدالة انها تعمل على تخويل الحروف المكونة للسلسلة النصية من الاحرف الصغيرة الى الاحرف‎ 
الكبيرة او بتعبير أصح انها تعمل على تحويل جميع الاحرف المكونة للسلسة النصية الى حروف كبيرة‎ 


2-ucfirst(upper case first) 
يکون التمثيل البرمجى لهذه الدالة هو كما يلي‎ 
*Code(16) ۰ 
pa="spawn is perl programmer"; 
print (ucfirst($a)); 
print $a; 
عمل هذه الدالة يكون قائم على انه يتم تحويل الحرف الاول من السلسلة النصية الى حرف حالة كبيرة مهما كان‎ 
اي اذا کان صغیر يتحول الى کبیر و اذا کان کبیر یبقی کما هو‎ 


3-lc (lower case) 
ويكون التمثيل البرمجى الخاص بهذه الدالة هو كما يلى‎ 
*Code(17) ۰ ٠ 
Şa="SpawN is PERL PROGRAmmer"; 
print (lc($a)); 
هذه الدالة يكون عملها تماما عكس الدالة الاولى أي انها تعمل على عكس حالة الاحرف من الحالة الكبيرة الى‎ 
الحالة الصغيرة ويكون تطبيقها على جميع الاحرف على عكس الدالة رقم 2 يكون عملها مقصور على الحرف‎ 
أللاول اي اذا كانت الاحرف كبيرة سوف تتحول الى احرف صغيرة و اذا كانت صغيرة سوف تبقى كما هي‎ 


4-lcfirst(lowercase first) 


ويکون التمثيل البرمجي الخاص بهذه الدالة كما يلي 
*Code(18)‏ 


$a="Spawn is perl programmer"; 
print (Icfirst($a)); 
اما هذه الدالة فأن عملها يكون محدود على تحويل الحرف الاول من السلسلة النصية الى حرف صغير اذا كان‎ 
2 حرف كبير وفقط اي عملها يشبه عمل الدالة رقم‎ 
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Controlling Case (Anchors) 
في الصفحة السابقة سبق وان تمت مناقشة اساليب التحكم في حالة الاحرف من خلال الدوال و لكن في هذا لانه‎ 
anchors J| سوف نتحكم في حالات الاحرف من خلال ما أحب أن اسميه بأسم ال 0sطع مج يشبه عمل‎ 


التمثيل البرمجي الخاص بها هو كما يلي 


1U 
*Code(19) 
$a='"\Uspawn'"'; 
print $a; 
هنا عمل هذا المعرف هو انه يعمل على تحويل جميع الاحرف من الحالة الصغيرة الى الحالة الكبيرة واذا كانت‎ 
الاحرف حالتها كبيرة يبقيها على ماهي عليه من وضعية اذن عملها من الناحية البرمجية يشبه عمل دالة ال‎ 


UC 
2U 
ويكون التمثيل البرمجي الخاص بهذا المعرف هو كما يلي‎ 
*Code(20) 
pa="\uspawn is perl programmer"; 
print $a; 
أما عن عمل هذا المعرف فهو يشبه عمل الدالة اع التي تعمل على تحويل الحرف الاول من السلسلة‎ 
من السلسة النصية الى حرف كبير‎ 
3L 
عمل هذا المعرف يكون كما يلي‎ 
*Code(21) 
Şa="\LSpAWN IS PeRL proGraMMer'"; 
print $a; 
هذا المعرف يعمل على تحويل الاحرف من الحالة الكبيرة الى الحالة الصغيرة اي انه في مجال العمل فأنه يشبه‎ 
|٥ عمل دالة ال‎ 
اا4‎ 
يكون التمثيل البرمجي لهذا المعرف هو كما يلي‎ 
*Code(22) 
pa="\ISpawn is perl programmer"; 
print $a; 


اما من ناحية عملها البرمجي فأنها تشبه عمل الدالة 
Icfirst‏ 
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How To Use The Index (Regular) 


في هذا الموضوع سوف يكون الحيدث عن كيفية ايجاد الموقع الخاص بحرف ما داخل السلسلة النصية وتتم هذه 


العملية من خلال استعمال الدالة ×6 "| ويكون تمثيل هذه الدالة برمجيا واسلوب استعمالها هو كما يلي 
*Code(23)‏ 


Şa= "perl"; 
print (index($a,e)); 


في هذا السطرين البرمجيين تلاحظ انه عن تنفيذ البرنامج سوف تحصل على هذه القيمة وهي 


Figqure(12) 
والتي تدل على انه الحرف م يحمل الموقع رقم 1 في السلسلة النصية وان ترتيب حروف السلسلة النصية مفهرس‎ 
صفریا‎ 


ملاحظة'- 

تجدر الاشارة الى فقرة مهمة للغاية وهي انه حالة الاحرف مهمة هنا تكون مهمة اي انه اذا كانت الحرف الموجود 
CE a E‏ 
هذه الفقرة 
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How To Use The Rindex 


المحور البرمحي لهذا الموضوع هو كيف يتم ايجاد موقع حرف معين داخل سلسلة نصية ولكن يسأل أاحد ما ما 
هو الفرق بين هذا الموضوع و الموضوع الذي يسبقه ؟؟ 
اللاجابة هي انه الفرق يكون في الدالة المسؤولة عن هذا العمل وعن اسلوب القراءة المختلفة الان لاحظ السكريبت 
البرمجي لكي تعرف ما هو الفرق بين هذين الموضوعين 
*Code(24)‏ 
a= "perl programmer";‏ 
print (rindex($a,e));‏ 
اسلوب عمل هذه الدالة البرمجية يشابه نوعا ما عمل الدالة البرمجية الخاصة بالموضوع السابق قبل ان نتكلم عن 
عمل هذه الدالة اليكم الصورة الناتجة من عملية التنفيذ وهي الصورة ادناه 


Figqure(13) 
هذه الصورة الناتجة عن تنفيذ السكريبت البرمجي أعلاه ولكن ألان سنقوم بتنفيذ هذا البرنامج باستخدام نفس‎ 
|١كه× السلسلة النصية ولكن مع استعمال دالة ال‎ 


اليكم الكود 


*Code(25) 
a= "perl programmer"; 
print (index($a,e)) 


الان لو لاحظت ناتج تنفيد هذا البرنامج لسوف يكون كما يلي في هذه الصورة 


Figure(14) 
13 الناتج من تنفيذ هذا البرنامج هو رقم 1 على عكس ناتج تنفيذ البرنامج في السابق الذي كان ناتج تنفيذه هو رقم‎ 
على الرغم من أن كل من البرنامجين تم استعمال معهم نفس السلسلة النصية و نفس الحرف ولكن نقطة الاختلاف‎ 
هي تکمن وعمل هاتين الدالتين هو كما يلي‎ 


1-index 
تعمل على قراءة السلسلة النصية من البداية الى النهاية حيث انه الجملة النصية المستعملة تحتوي على مرتين‎ 


حرف 
6 وفي الدالة اندكس يتم عرضه على انه الرقم واحد لانه ثاني حرف في السلسلة النصية 
2-rindex‏ 
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في الدالة السابقة ذكرنا انه يتم قراءة السلسلة النصية من البداية النهاية هذا لايعني ان الدالة هذه تقرأً من النهاية الى 
البداية ولكن هذا يعني انها تعمل على عرض اول حرف من الاخير تتم المطابقة عليه ولاحظتم الفرق بين ناتج 
تنفيذ البرنامجين والفرق بين النواتج 


How To Length 


كيف تقوم بأيجاد طول سلسلة نصية ؟؟ 
هذه عملية سهلة وتجد دالة خاصة بهذه العملية حيث ان هذه الدالة تعمل على قياس طول السلسلة النصية وهي دالة 
ال اوها ويكون تمثيل هذه الدالة برمجية كما يلي 

*Code(26) 


pa="perl"; 
print (length($a)); 


ويكون ناتج تنفيذ هذا الكود هو كما يظهر في الصورة الاتية 


Figqure(15) 
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How To Reformat 


أنت الان لديك سلسلة نصية كبيرة مكونة من عدد من أسطر اي كاثر من سطرين او 3 كيف تقوم بعمل تنسيق 
نصي لها بحيث تظهر عند التنفيذ على انها نص مهندم من ناحية العرض هذه اعلملية ممكنة في لغة البيرل من 
خلال استعمال مودیل ال مھ 1٥×۲::W‏ 
وتتم العملية كما يلي من خلال هذا الكود 
*Code(27)‏ 
@Who_We_Are=( "SpAwN is perl programmer",‏ 
"StrikerX is Pyhton programmer",‏ 
"StOrM is C programmer",‏ 
"MutatiOn is RuBy programmer",‏ 
"Dj is bash programmer",‏ 
J;‏ 
use Text:: Wrap qw($columns &wrap);‏ 
$Scolumns = 20;‏ 


print wrap ( 4 1 " @Who_We_Are), "1 


Over view on the code 
الان نأخذ نظرة سريعة على هذا البرنامج لاحظ ما يلي‎ 
ا‎ 
*Code(28) 
@Who_We_Are=( "SpAwN is perl programmer", 
"StrikerX is Pyhton programmer", 
"StOrM is C programmer", 


"MutatiOn is RuBy programmer", 
"Dj is bash programmer", 


لاحظ هنا في الاعلى لدينا مصوفة مكونة من هذه الاسطر لا أكثر ولا أقل ولن ادخل في برمجة المصوفة لأنه هذا 
ر 
*Code(29)‏ 


use Text:: Wrap qw($columns &wrap); 
Şcolumns = 20; 


print wrap ( 1 " @Who_We_Are),"\n"; 


اما هنا تم استعمال الموديل الخاص بهذه العملية وقمنا باستعمال متغير يحمل أسم $٥011 ١۸5‏ وروتين 
فرعي يحمل اسم م۵٣ &W‏ 
ومن اتم المتغير الذي يحJa $COLUMNS wl‏ 
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تم أسناد قيمة رقمية له و هي الرقم 20 وهذا الرقم يعني انه كل سطر من هذه الاسطر سوف يكون مكون من 20 
حرف على اقصى حد ولن يكون هنالك سطر مكون من اكثر من 20 حرف ولكن من الممكن ان يكون السطر 
مكون من اقل من 20 حرف هذه الفقرة ممكنة ولكن العكس غير ممكن 

أليكم الصورة الناتجة من تنفيذ البرنامج وهي كما يلي 


Figqure(16) 


ملاحظة هامة 
هذا الكود لیس كغيره من الاكواد الاخرى على اعتبار انه يدخل الموديل فى جزء برمجى منه 
الان اذهب ال ها السار ۰ ۰ 
*Code(30)‏ 
/usr/lib/perl5/5.8.8/Text/‏ 


وافتحه ستر ی فيه ملف يحمل هذا الاسم الموجود في هده الصورة 


packaqi® Te 


MSE HAF TILT 
FEqUIF™E E 


EIS = qHI 
EERFOFRT x 


Figqure(17) 
ادا کان لديك هذا المأف موجود هذا يعني ان الموديل موجود على جهازك وألا فأنه علباك تحمله من موقع ال‎ 
WWW.CPpan. org 
الان افتح هذا الملف ستلاحظ انه مكون من هذه التركيبة البرمجية تشبه التركيبة الموجودة قي الصورة‎ 
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igure(18) 
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لو ترجع البرنامج الأول لكنت تلاحظ انه لو غيرت اسم الرويتن الفرعي من الاسم الذي عليه وهو ال مج 
الى اي أسم اخر غير هذا الاسم لتلاحظ انه سوف يكون هنالك خلل في تنفيذ البرنامج ولن تحصل على نتجية 
ونفس الوضع مع المتغير الذي يحمل الاسم ئ۸ Uu‏ اco$‏ 

لو غيرت اسمه من هذا الاسم الى اسم اخر لن يتتفذ البرنامج ولكن اذا اردت ان تتعلم كيف تتم هذه العملية عليك 
ان تغير اسمائهم من الملف الذي اشرنا اليه في الاعلى و ان تكون اتطoاg‏ 

وليس تغير جزئي 
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How To Use Constant 
كيف من الممكن ان تقوم بأسناد سلاسل نصية الى متغيرات وتكون قيم هذه المتغيرات غير قابلة للتبديل لاحظ انه‎ 
لو كان لديك سكريبت برمجي مثل هذا السكريبت‎ 
*Code(31) ۰ 
a= "perl"; 
$a="PERL"; 
print $a; 


لو تلاحظ ما هو ناتج تنفيذ هذا البرنامج لسوف يكون كما يلي 


Figure(19 
E N O a 
الاحرف الصغيرة ولكن المتغير الاخر يحمل قيمة البيرل لكن في حالة الاحرف الكبيرة وعندما تم تنفيذ البرنامج‎ 
a كان الناتج من هذا التنفيذ هو طباعة كلمة البيرل في حالة الاحرف الكبيرة‎ 
الصغيرة الى الكبيرة اذن هذه العملية غير مفيدة في هذه الوضعية اذن لا بد من أتباع غير اسلوب وهذا الاسلوب‎ 
يتم من خلال استعمال الموديل أ١٠2أئ" هع وكما يلي من خلال هذا الكود‎ 


*Code(32) 
use constant WHO_WE_ARE =>"Programming-fr34ks"'; 
print WHO_WE_ARE; 


الان لو تم ملاحظة ناتج تنفيذ البرنامج فأنه يكون كما يلي في هذه الصورة 


Figqure(20) 


لاحظ هنا في البرنامج الموجود اعلاه ال 
WHO WE ARE‏ 
لايتم معاملتها على أنها متغير من وجهة نظرى ولكن يتم اعتبارها 
name‏ )عام لسلسلة النصية 
and this nickname is disabled from accessing‏ 
ملاحظة 


هذا ال مالم" من الممكن ان يتم استعماله مع الارقام اي أنه لايقتصر تعامله مع السلاسل النصية 
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How To L33t 


ألان وفي الوقت الحالي اصبح كل من له اطلاع في عالم البرمجة وحتى لو كان هذا الاطلاع هو اطلاع بسيط على 
مكنونات عالم البرمجة سيعلم ماهو ال )مجعم |٥‏ طبعا لغة البيرل هذه الامكانية فيها متوفرة عن طريق 


استعمال الموديل الخاص بهذه العملية يتم تمثيل ال |٠6‏ كما يلي 
*Code(33)‏ 
use Acme::LeetSpeak;‏ 
$Who_we_Are="programing-freaks'";‏ 
Şstring = leet($Who_we_Are);‏ 
print $string;‏ 
print "\n"‏ 


لاحظ في هذا الكود تم أستدعاء الموديل 
*Code(34)‏ 
use Acme::LeetSpeak;‏ 


الذي يكون مسؤول عن هذه العملية 
ومن تم استعمال المتغير الذي يحمل قيمة 
*Code(35)‏ 
$Who_we_Are="programing-freaks";‏ 
على انها المعامل التابع لهذا المتغير ومن تم تم استدعاء متغير اخر كان عمله ان يقوم بأستدعاء دالة ال 
*Code(36)‏ 
leet($Who_we_Are);‏ 


حيث في هذا الكود تم اعطاء خوراص الدالة |6٤‏ للمتغير $Who_we Are‏ 
ألان لو نفذت هذا البرنامج سوف يكون ناتج تنفيذه كما يلي في الصورة التالية 


Figqure(21) 


هكذا تم تحويل كلمة ال ksھعr؟-وramminودام‏ من هذا النمط العادي الى النمط الخاص بال كأعم| 
ملاحظة 
لاحظ الصورة التالية 
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use Acme: :LeetSpeak; 
$Who we Are="programing-freaks"; 


$string= leet ($Who we Are); 


print $string; 
porint "\n"; 
PROHgr/ -\/\/\1I | \ | 6 -FRe@GK$ 
Figure (22) 
ouامuا لقد تم أستعمال السلسلة النصية ذاتها في كل من البرنامجين ولكن الذي حصل هو اختلاف في ال‎ 
SS o 
أن اسميه (“بخواص الاستبدال”) الموجود في السورس الخاص بهذا الموديل اي بعبارة أوضح ما أقصده هو‎ 


Figqure(23) 
لاحظ انه لكل حرف هنا يوجد له بديل وفي كل مرة تنفذ فيها الجملة يتم أما عرض الحرف بنفس ما تم عرضه‎ 
سابقا او عرض بديل اخر لم يتم عرضه في التنفيذ السابق وهذا هو سبب حصول هذه العملية‎ 
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How To Color Output 


في هذا الموضوع ستتم مناقشة طرق تلوين النص في لغة البيرل تتم عملية تلوين المخرجات في لغة البيرل من 
خلال استعمال المودیل 0۲اTerm::Ansico‏ 
ويتم التمثيل البرمجي لهذه العملية كما يلي 
*Code(37)‏ 
use Term::ANSIColor;‏ 
print color 'bold blue';‏ 
print "This text is bold blue.\n"';‏ 
print color 'reset';‏ 
print "This text is normal.\n";‏ 
print colored ("programming-fr34ks.", 'yellow on_magenta'’), "\n"';‏ 
print "This text is normal.\n";‏ 
print colored ['yellow on_magenta'], 'Yellow on magenta.';‏ 


print "\n"; 
هذا هو كود المسئول عن عملية التلوين في لغة البيرل لاحظ انه يحتوي على عدد من الخصائص وهي‎ 
المقطع الاول‎ 
*Code(38) 
use Term::ANSIColor; #1 
print color 'bold blue'; #2 
print "This text is bold blue.\n"; #3 
print color 'reset'; #4 
1 
استدعاء الموديل المسئول عن تلوين النص‎ 
2- 


الجملة الثانية من هذا المقطع هي انه يتم استدعاء الرويتن الخاص باللون عاط لاط وفي هذه الحالة تم 
اصبح اللون الازرق في حالة استعداد و إ6 ١4ء‏ من اجل ان يتم تنفيذه 

3- 

هنا في الخطوة هذه تمت طباعة الجملة باللون الازرق وكان السبب في طباعة الجملة في اللون الازرق لانه في 
حالة الاستعداد 

4- 

هذه الخطوة هي خطوة مهمة جدا حيث ان عمل هذه الخطوة يكون في أعادة الخط في الشيل بعد التنفيذ الى ماكن 
عليه اي هنا لو لم تکن هذه الخطوة موجودة لاصبح كل اللون الشيل هو ازرق على الاستمرار حتى بعد انتهاء 
التنفيذ و الخروج من البرنامج لذا هذه الخطوة تلافت هذه المشكلة وعملت على لون الخط في الشيل الى ما كان 


P3rL CockBook SaXaphOnE PlaYer Theory 


المقطع الثاني 
*Code(39)‏ 
print "This text is normal.\n" #1‏ 
print colored ("programming-fr34ks.", 'yellow on_magenta'), "\n"; #2‏ 
print "This text is normal.\n" #3‏ 
print colored ['yellow on_magenta'], 'Yellow on magenta.'; #4‏ 
print "\n"‏ 
کل 
هنا في الخطوة هذه يتم طباعة جملة نصية عادية 
-2 


NUE INO Ba I OS 
او سطر معين ولكن ما يهمنا من هذه الطريفة المختلفة عن الطريفة السابقة هو ان الموديل وفر لنا عناء استعمال‎ 
خاصة ال أعوهع مع هذا الاسلوب من التلوين وهكذا لن نحتاج الى هذه الطريقة مزيد من الخطوات اذا كان من‎ 


من الممكن ان يتم استعمال اسلوب اسهل 
-4 


نفس الاسلوب في السطر 2 ولكن في ٥ار†ء‏ مختلف ولكن النتيجة هي نفس النتيجة 


الان لاحظ صورة ناتج البرنامج بعد التنفيذ 


Figure (24)‏ 
ملاحظة هامة عليك ان تفهمها هي انه يوجد فرق بين کل من 


Output highlighting 


Output coloring 


*Code(40) 


الفرق هو انه في ال و١‏ اهام التلوين يتم وفق ما أنت تريد بعبارة اوضح انت الذي تحدد ان يتم تلوين كلمة 
بيرل في اللون الاحمر وكلمة بايثون باللون الاصفر وكلمة لينكس بالاخضر ورقم 2 بالابيض ورقم 99 بالاسود 
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ونفس الوضع مع الارقام‎ strings 
اما عن ال 9٣وا وام فانه يتم وفق قواعد محددة تكون كما يلي على سبيل المتال‎ 


strings = >red 
numbers = >yellow 
Op = >black 
func = >blue 


Figqure(25) 
صورة عن ال و ٣اا واوا وفق قواعد برنامج ال عاس لبرنامج الذي ذكرناه قبل قليل‎ 
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How Ilo Encrypt 
كيف تتم عملية تشفير السلاسل النصية في لغة البيرل هذه العملية تتم من خلال أستعمال الدالة الخاصة بعملية‎ 
التشفير وهي دالة ال امل واسلوب تمثيل هذه الدالة برمجيا هو كما يلي‎ 
*Code(41) 
Şa="programming-fr34ks"'; 
Şb="PF"; 
$c=(crypt(a,$b)); 
print $c; 
في هذا البرنامج الموجود في الاعلى تم أستعمال سلسلتين نصيتين ومع هذا فأن التشفير يبقى للمتغير الاول فقط‎ 
ماهو سبب هذا ؟؟‎ 
" فعلا ان التشفير يبقى لسلسلة نصية واحدة ولكن المتغير الثاني المستخدم في البرنامج يعتبر "مفتاح تشفير‎ 
اي لو لاحظت ناتج تنفيذ البرنامج فأن الحرفين الاولين من الناتج من تنفيذ البرنامج هما الحرفين م‎ 
وهذه هي صورة تنفيذ البرنامج‎ 


Figure (26) 


ملاحظات 

او لا 

المتغير الثاني الذي يستعمل في دالة التشفير كما ذكر انه يستخدم من أجل ان يكون مفتاح تشفير حيث يتم أخذ اول 
حرفين من هذا المتغير من أجل ان تكون مفتاح لتشفير المتغير الاول 

دالة التشفير دالة مبرمجة على ان تكون قادرة على التعامل مع متغيرين أي تتعامل مع المتغير الأول الذي سوف 
يتم لد تشدیر ەو | لمتغبر الاي الذي سوف یتم اعتباره مفتاح الند أتشفبر وادا حاولت ١‏ ستعمال هذه الدالة من دون أحد 
هذين المتغيرين فأن الناتج الذي سوف تحصله هو الناتج الاتي 


Figqure(27) 
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How To Chomp 


دال chomp Û‏ هي من الدوال التي تتعامل مع السلاسل النصية في لغة البيرل و يكون تمثيلها البرمجي كما يلي 
*Code(42)‏ 
pa="programming-fr34ks\n"';‏ 
$b=chomp($a);‏ 
print $b;‏ 
print "\n";‏ 
print $a;‏ 


لاحظ انه عمل هذه الدالة هو انه تعمل على ألغاء رمز الهروب"," 
وتعمل على اعادته فيما لو اذا تم أسناده الى متغير لاحظ ناتج تنفيذ هذا البرنامج في الصورة المدرجة ادناه 


,  Figure(28) 
في هذا الصورة تلاحظ انه تم الغاء رمز الهروب واعادتة في متغير اخر‎ 
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How To Chop 


هذا النوع من الدوال ايضا يتم أستعماله مع السلاسل النصية في لغة البيرل اما عن تمثيله البرمجي فهو يكون كما 


لے ف ھا الكود 

*Code(43) 

$a="Let’s GOO"; 
$b=chop($a); 

print $a; 

print "\n"; 

print "The retrned lette is $b"; 
الان لاحظ ما هو عمل هذه الدالة هي دالة يمكن أعتبارها دالة تعمل على ألغاء الحرف الاخير من السلسلة النصية‎ 
و أعادته في متغير اخر لكي يعرض فيما لو أسند الى متغيرآخر وهذا المتغير الاخر لو تم طلبه من قبل المستخدم‎ 

فی عملية طباعة سوف يعطى المحتوى الموجود فى داخله كما فى الصورة المدرجة أدناه 


Figure(29) 
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How 1o Qw 


هذه الدالة تعتبر من الدوال التنسيقية فى لغة البيرل اي أن استعمالها مجرد استعمال من أجل أظهار او أضفاء لمسة 
على السلسلة النصية لاحظ هذا الكود البسيط ۰ 

*Code(44) 

print "Hi,lam perl programmer"; 


هذه الخطوة البرمجية بكل بساطة سوف تظهر لك ما يلي عند التنفيذ 


Figure(30) 
ولكن ما يحصل عند أستخدام هذه الدالة هو ما يلي لاحظ الكود الاتي‎ 


*Code(45) 
print qw/"Hi,lam perl programmer'"/; 


عند تنفيذ هذا الكود فان هذه الدالة تعمل على أعادة ال | الى سلسلة نصية لاحظ صورة تنفيذ البرنامج 


Figqure(31) 
كما في ناتج ألتنفيذ يمكن معرفة انه عمل هذه الدالة بسيط وهو لا يتعدي مجرد أعادة الجملة المستخدمة الى سلسلة‎ 
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How To Equalize Between 2 Strings 


الطريقة الاولى 
لو كانت السلاسل النصية متساوية 


كيف تتم معرفة هل انه السلاسل النصية المستخدمة في البرنامج هي سلاسل متساوية أم لا هذه العملية تتم من 


خلال استعمال هذه الدالة الخاصة بهذه العملية وهي دالة ال وم 


*Code(46) 
a="123456"; 
$bD="123456"; 
if ($a eq "$b"){ 
print "good"; 
else { 

print "bad"; 
1 


الان لو تمت مقارنة هذه السلسلتين النصيتين مع بعضهما سوف تحصل على ناتج يؤكد لك انه كل من السلسلتين 


المستخدمتين في البرامج هي سلاسل متساوية لاحظ ناتج تنفيذ البرنامج كما في الصورة الاتية 


Figqure(32) 
هذه الحالة لو كانت السلاسل النصية المستخدمة في البرنامج متساوية‎ 
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الطريقة الثانية 
عندما تكون السلاسل غير متساوية 
عندما تكون السلاسل النصية المستخدمة في البرنامج غير متساوية يتم استعمال الدالة الخاصة بهذه العملية وهي 
دالة ال "٥‏ ويكون تمتيل هذه الدالة برمجيا من خلال هذا الكود الاتي 
*Code(47)‏ 
a="PERL";‏ 
$b="perl";‏ 
if ($a ne $b){‏ 
print "these strings are not equal";‏ 


j 
else { 
print "these strings are equal"; 


j 


الان لو تم تنفيذ هدا البرنامج سوف تحصل على القيمة الخاصة التي تدل على أنه السلاسل النصية المستخدمة في 
هذا البرنامج هي سلاسل نصية غير متساوية لاحظ الصورة الخاصة بتنفيذ البرنامج دناه 


Figqure(33) 
ومن خلال هاتين الط يقتين تعلم فيما اذا كانت السلاسل النصية اا تستخدم في البرنامج هي : لاسل متساوية ام‎ 
غير متساويه‎ 
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How To Crunch 


في هذا الموضوع سوف نتكلم عن موضوع التحكم في المسافات الموجودة في السلاسل اللصية وكيف يتم الغاء 
المسافات البيضاء الغير مر غوب فيها من السلسلة النصية سواء كانت هذه الفراغات من نوع 


1-skip sequence 
2- trail white space 


هذه العمليات التي تكلمنا عنها تتم من خلال استعمال الموديل الاتي 
*Code(48)‏ 
use String:: Util;‏ 
والان لاحظ هذا الكود الذي تم دمج نوعين من المسافات التي قد تواجهها في آثناء كتابتك للبرنامج والمسافات 
المستعملة في هذا البرنامج هي نفس أنواع المسافات التي ذكرتها في الاعلى قبل قليل اليكم الكود الخاص بهذه 
العملية 


0 


*Code(49) 

use String:: Util ':all'; 

a= "iam\tperl\tprogrammer"; 

$b="iam perl programmer"; 
$c=crunch($a); 

$d=crunch($b); 

print $c, "\n 

print $d, "\n"'; 


الان لاحظ انه عندما يتم تنفيذ البرنامج فأن ناتج تنفيذه هو الناتج الأتي 


Figqure(34) 
لاحظ الان عندما تم تنفيذ البرنامج قامت الدالة المستخدمة في هذا الموديل بألغاء المسافات والعمل على أعادة‎ 
السلسلة النصية الى وضع اعتيادي بحيث انه لايوجد أكثر من مسافة واحد تفصل بين كلمة وكملة أخرى‎ 
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How To Nospace 


اما الان سوف نتناول جز ئية أخرى من الموديل الذي تكلمنا عنه وهذه الجزئية هي جزئية ال معةمئه" 
*Code(50)‏ 


use String:: Util ':all'; 

$a="We are perl programmer"; 
$b=nospace($a); 

print $b; 


الان لو تم تنفيذ هدا البرنامج سوف يكون ناتج تنفيذه هو كما يلي في الصورة الاتية 


Figure(35) 
عندما تم تنفيذ هذا البرنامج فأن الدالة المستعملة معه تعمل على اعادة السلسلة النصية التي تمت معاملتها بها على‎ 
أن تطبع بدون ان تحتوي على فراغات بين الكلمات اي تطبع على أساس انها كلمة واحدة لا فواصل بينها‎ 


PSrL 
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How 1o Hascontent 


لا ؟؟ هذا الموديل يوفر لك دالة وتقنية مفيدة تعرف من خلالها هل ان المتغير الذي تعمل عليه هو متغير ام معرف 
ام متغير معرف وهذه الطريقة لكي تمثل هذه الطريفة و برمجيا اليكم الكود 


1-defined 


*Code(51) 

use String:: Util ':all'; 

a= "perl programming"; 

if (hascontent ($a)J){ 

print "\$a hascontent and it's content is:->",$a; 


1 


else { 
print "\$a is do 't have any content"; 


j 


الان لو نفذت هذ البرنامج سوف تحصل على نتيجة وهذه النتيجة تخبرك بأن المتغير الذي تتعامل معه هو معرف 
وهذا ناتج تنفيذ البرنامج 


Figure(36) 
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2- undefined 


N EN OG CG GE 
المستعمل في البرنامج هو متغير غير معرف وهذه هي الطريقة‎ 


*Code(52) 

use String:: Util ':all'; 

undef $a; 

if (hascontent ($a)){ 

print "the variable is defined"; 

1 

else { 

print "sorry the variable is not defined"; 
1 


الان لو تم تنفيذ هذا البرنامج فأن الناتج من تنفيذه سوف يخبرك بأن المتغير الذي تتعامل معه هو متغير غير 
معرف واليكم الصورة الناتجة من تنفيذ البرنامج 


Figqure(37) 
defined والتي تحمل الاسم‎ طأا٤‎ |٢ عمل هذه الدالة من الناحية البرمجية يمكن القول أنها مساوية للدالة ال‎ 
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How To Rand 


أيضا هذا الموديل يوفر لك امكانية توليد كلمات عشوآئية لمساحات من الاحرف التي الذي تحددها وتتم عملية 


التوليد العشوأئي لاحرف كما يلي من خلال هذا الكود 
*Code(53)‏ 


use String:: Util ':all'; 
şa = randword(5); 
print $a; 
الان لو تم تنفيذ البرنامج فأن الدالة المسئولة عن هذه العملية سوف تقوم بتوليد كلمة عشوأئية على طول حرفي‎ 
مقدأره خمسة أحرف لا أكثر ولا أقل‎ 
اليكم ناتج تنفيذ البرنامج‎ 


Figure(38) 
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How To Make String Banner 


في هذا الموضوع سوف يكون الاتجاه البرمجي حول كيفية طباعة السلاسل النصية وكيفية التحكم بخصائص النص 
و اساليب طباعة النص بطرق مختلفة هذا النوع من العمليات البرمجية في لغة البيرل تتم من خلال استعمال مو دیل 
خاص لهذه العملية ويكون التمتيل البرمجي لهذه العملية كما يلي من خلال هذا السكريبت الاتي 
*Code(54)‏ 
use Text:: Banner;‏ 
$a = Text::Banner->new;‏ 
$a->set(P3rL’);‏ 
pa->size([);‏ 
Sa->filI(*);‏ 
sa->rotate(h’);‏ 
print $a->get;‏ 


لاحظ البرنامج الموجود في الاعلى انه يحتوي على عدد كبير من ال methods‏ من أجل ان یتم استعراض 
السلسلة النصية بالشكل المطلوب لاحظ الشكل التالي الذي يوضح ناتج تنفيذ هذا البرنامج 


Figure(39) 
لاحظ الأخصائص الموجودة في البرنامج هي كما يلي‎ 
اول‎ 


*Code(55) 
new 
اء عزطه والرفرنس الذي سيكون فيما فيما بعد‎ ۲٠٥۲6٠٣١٥٥ هي الخاصية التي تكون مسئولة عن تكوين ال‎ 
الذي يستخدم لتعريف السلسلة النصية‎ 


*Code(56) 
set 


فد الكاصه فى الكاصة الى كرن سرا عن كران اك ار الا انض اى م الت عب عا 
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*Code(57) 
Size 


هذه الخاصية هي الخاصية التي تكون مسئولة عن أعطأء الكلمة التي نود أن نستعرضها الحجم المرغوب 


رابعا 
*Code(58)‏ 
fill‏ 
هذه الخاصية هى خاصية ملي السلسلة النصية بالحرف او الرمز الذى نود ان تستعرض الكلمة به 
٠ ٠ e‏ 
*Code(59)‏ 
rotate‏ 


هذه الخاصية هي الخاصية التي تكون مسئولة عن موقع الكلمة من نأحية الاتجاه و هذه العلاقية تأتى بخيارين هما 


rotate meaning 
1 أفقي‎ 
V عمودي‎ 
ملاحظات هامة‎ 
اولا‎ 


ان خاصية ال ٥أS‏ هي الخاصية التي تكون مسئولة عن اعطاء الحجم للكلمة ولكن هي تعمل على استعمال الرمز 

المعطى في خاصية ال |اأ حيث تعمل تكراره بعدد المرات التي يكون موجود فيها في الخاصية هأ 
لاحظ المقطع البر مجي الاتي 

*Code(60) 

use Text:: Banner; 

$a= Text:: Banner->new; 

$a->set(PF’); 

Sa->size(2); 

Sa->fill("*"); 

Şa->rotate("h"); 

print $a->get; 


والان لاحظ ناتج تتفيذ هذا البرنامج فأنه سيكون كما يلي فأن الشكل التالي يوضح كيف يكون ناتج تنفيذه 


P3rL CockBook SaXaphOnE PlaYer Theory 


Figqure(40) 


من تنفيذ البرنامج مكونة من صفين من النجوم كما تم الطلب من البرنامج ان يفعل 
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How To Make Conversion 


1- Arrays to strings 


في هذا الموضوع سيكون الحديث عن تحويل أنواع المتغيرات الموجودة في لغة البيرل ألا وهي المصفوفات و 
الهاشات الى الى سلسلة نصية وهذه عملية مهمة للغاية عندما تكون في حاجة الى عملية تحويل بين انواع 
*Code(61)‏ 
use String:: Escape qw( string2list list2string J);‏ 
@list=("Storm","StrikerX","SpAWN","Snix","Dj");‏ 
plist = list2string( @lIist );‏ 
print $list, "\n"';‏ 
الان لو تلاحظ ناتج تنفيذ هذا البرنامج فأنه سوف يكون تحويل المصفوفة التي تم أعطائها في البرنامج الى سلسلة 
نصية ويوضح الشكل الاتي ناتج تنفيذ هذا البرنامج اليكم الصورة 


Figqure(41) 


2- hashes to Strings 


هذه الطريقة تستعمل في التحويل من المتغيرات التي تكون من نوع الهاش الى سلاسل نصية وهذه الطريقة تشبه 
الطريفة السابقة وهذا هو الكود المسؤّول عن هذه العملية 


*Code(62) 
use String::Escape qw( hashZ2string J); 
%ohash = ( 
StOrM => "C Nightmare", 
Striker => "python Guru", 
MutantiOn => "Ruby G33K'"', 
J; 
Şhash = hash2string( éhash ); 
print $hash,"\n"; 
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Figqure(42) 


Perl Arrays 


النوع الثاني من المتغيرات في لغة البيرل هو المصفوفات التي تعتبر من المتغيرات المهمة و التي يتم استعمالها 
كثيرا في لغة البيرل ويكون التعريف البرمجي العام للمصفوفات كما يلي من خلال الكريبت البرمجي 
*Code(63)‏ 

@a=("Spawn","striker", "Storm", "Snix"); 
هذا هو التعريف العام للمصفوفات في لغة البيرل لاحظ دائما انه في كل مكان في اي سكريبت برمجي تلاحظ‎ 
وجود علامة البريد الالكتروني @ عليك ان تعرف انه نوع المتغيرات البرمجية التي تتعامل معها هي‎ 
)aه(مسالا المصوفوفات ولاحظ هنا في السطر البرمجي أعلاه ان الكود يحتوي على مصفوفة تحمل‎ 
وهذه المصفوفة مكونة من اربعة عناصر كما هو مبين في هذا السطر البرمجي عليك ان تعرف هذه الملاحظة‎ 
البرمجية المهمة هي ألمصفوفة في لغة البيرل تكون العناصر فيها صفرية الفهرسة اي انه العنصر الاول يكون‎ 
مركزه التسلسلي هو صفر و ليس واحد‎ 


How to print array element 
الان نأتي الى هذه الفقرة الخاصة بكيفية طباعة عناصر المصفوفة البرمجية تتم عملية طباعة عناصر المصفوفة‎ 
في لغة البيرل كما يلي‎ 
*Code(64) 
@a=("Spawn","striker", "Storm", "Snix"); 
print $a[0]; 
الان لو تلاحظ ناتج تنفيذ هذا البرنامج كما في الصورة التالية سوف تفهم ما هو عمل عملية الطباعة في لغة البيرل‎ 


Figqure(43) 
هذه الحالة اذا نفذت البرنامج وكان العنصر الذي ادخلته هو رقم صفر سوف يطبع اول اسم واذا ادخلت رقم واحد‎ 
سوف يطبع العنصر الثاني ومن الممكن ان يتم طباعة اكثر من عنصر ومن الممكن ان يكون عناصر المصفوفة‎ 


Parl ArrAys 
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Array special variable 


في المصفوفات في لغة البيرل يوجد متغير يدعى هذا المتغير بالمتغير المميز وحقيقة هذا المتغير مميز فعلا نظرا 
لأهمية العمل الذي يقوم به اثناء برمجة المصفوفات ويكون اسلوب عمله البرمجي كما يلي في هذا الكود 
*Code(65)‏ 
@a=("spawn","Striker","Storm","Dj","Snix","balckray", "mutantiOn");‏ 
print $Şa[$#a];‏ 
لاحظ هذا السطر البرمجي لايحتوي على اسم العنصر الذي نريد ان نقوم بطباعته مثل الكود السابق الذي ذكرنا فيه 
ان العنصر الذي نريد ان نقوم بطباعته و هدا هو سبب تميز هذا المتغير الان لو تم تنفيذ هذا الكو د فأن النتاج من 
عملية التنفيذ هذه سوف تكون كما يلي في الصورة الاتية 


Figqure(44) 
لاحظ انه عند تم تنفيذ هذا البرنامج فأن الناتج من عملية التنفيذ هذه انه يتم طباعة العنصر الاخير من عناصر‎ 
المصفوفة اي أنه عمل هذا المتغير الخاص هو انه يعمل على طباعة العنصر الاخير الموجود في المصفوفة مهما‎ 


How print the all array 
لاحظ ماذا أو كانت لديك مصفوفة كالمصفوفة التي تم ذكرها في الاعلى وقمت بطباعة المصفوفة كاملة ماذا‎ 
سيکكون ناتج تنتفيذ هده العملية لاحظ هذا الكود البرمجي‎ 
*Code(66) 
@a=("spawn","Striker","Storm","Dj","Snix","balckray","mutantiOn"); 
print @a,"\n"'; 


لو نفذت الكود البرمجي اعلاه سيكون ناتج تنفيذ هذا البرنامج هو ما يلي في الصورة الاتية 


Figqure(45) 
ناتج تنفيذ هذه العملية هو طباعة جميع عناصر المصفوفة كما وردت في الكود من دون وجود فواصل او فراغات‎ 
بين عناصر المصفوفة وهنالك من يظن ان السبب في هذه العملية هو عدو وجود فراغات بين عناصر المصفوفة‎ 
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*Code(67) 
@a=("spawn" , "Striker" , "Storm" , "Dj" , "Snix"); 
print @a,"\n"'; 


لو نفذت البرنامج المذكور أعلاه سوف تكون نتيجة التنفيذ هي النتيجة الواضحة في الصورة أدناه 


Figqure(46) 
ناتج تنفيذ هدا الكود هو نفس ناتج تنفيذ البرنامج السابق اي أنه حتى لو تم وضع فراغات بين عناصر المصفوفة‎ 
فانه عند عملية الطباعة هذه الفراغات سوف تهمل ولن تؤثر على ناتج تنفيذ البرنامج‎ 


هذه الحالة من الممكن ان يتم أعتبارها مشكلة لو كانت لديك مصفوفة كبيرة ومكونة من عدد من عناصر كبير لذا 
من الممكن ان يتم التخلص من هذه المشكلة باستخدام هذه الطريقة 

*code(68) 
@a=("spawn","Striker","Storm","Dj","Snix","balckray", "mutantiOn"); 


print "@a'","\n"'; 


لاحظ انها طريقة سهلة من شأنها أن تعمل على حل هذه المشكلة أنظر الى ناتج تنفيذ هذا الكود في الصورة الاتية 


Figqure(47) 
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How to undef the array 

من الممكن ان تقوم بألغاء تعريف عنصر من عناصر المصوفة وبذلك يتم الغاء هذه العنصر من هيكلة المصفوفة 
اي يصبح عنصر غير معرف و بالتالي يصبح عنصر غير موجود الطريقة البرمجية التي تتم بها هذه الطريقة هي 
*Code(69)‏ 
@a=("spawn","Striker","Storm","Dj","Snix","balckray", "mutantiOn");‏ 
undef $a[0];‏ 


rr If 


print "@a'","\n"'; 
الان لو تم تنفيذ هذا البرنامج سوف يكون ناتج تنفيذ هذا البرنامج هو الناتج الأتي في الصورة ادناه‎ 


Figure(48) 
ومن تم عندما تم طباعة المصفوفة تم الغاء هذا العنصر من هيكلة المصفوفة‎ spawn 
هذه العملية من الممكن ان يتم استعمالها على أكثر من عنصر في المصفوفة ولكن بالطريقة الاتية‎ 
الطريقة الاولى‎ 


*Code(7/0) 
@a=("spawn","Striker","Storm","Dj","Snix","balckray", "mutantiOn"); 


undef $a[0],$a[2]; 


rr If 


print "@a","\n"'; 
هده الطريفة هي طريقة خاطئة لانه في هذه الحالة العنصر الاول من المصفوفة سوف يتم الغاءه اما العنصر الثالث‎ 
فلن يتم الغاءه لانه عمل هذه الدالة يقتصر على عنصر واحد فقط‎ 


*Code(71) 


@a=("spawn","Striker","Storm","Dj","Snix","balckray", "mutantiOn"); 
undef $a[0]; 
undef $a[2]; 


rr If 


print "@a","\n"'; 
هذه الطريقة هي الطريقة الصحيحة من أجل الغاء تعريف أكثر من عنصر في المصفوفة وألان لاحظ ناتج تنفيذ‎ 
هذا الكود في الصورة الاتية‎ 


Figure(49) 


Parl ArrAys 
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ومن الممكن أيضا أن يتم استعمال دالة ال ؟مل من مع المصفوفات كاملة وليس مع عناصر المصفوفات فقط 


وهذه الطريفة الخاصة باستعمال هذه الدالة مع المصفو فات في الكود الاتي 
*Code(7/2)‏ 
@a=("ruby",""python","perl","C");‏ 
undef @a;‏ 
print @a;‏ 


Figure(50) 
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How to defined 


هذه الدالة تستعمل لمعرفة هل انه المتغير الذي تتعامل معه هو متغير معرف ام لا. وهذه الدالة يتم استعمالها مع 
عناصر المصفوفة ويتم استعمالها مع المصفوفة كاملة 

و هده هي طرق استعمال هذه الدالة مع المصفوفات وعناصرها 

*Code(73) 

@a=("Storm",""striker","Dj","SniX","Spawn","Ray"); 

if (defined(@a))J{ 

print "the array \@a is defined","\n"'; 


في هذا المقطع البرمجي تم استعمال جملة اذا الشرطية مع دالة ال Uعممزfمن‏ حيث تم لمعرفة اذا كانت المصفوفة 


*Code(47) 


print "the array \@ےa‎ is defined","\n"'; 
ولكن عليك ان تلاحظ شئ مهم جدا هو انه في هذه الجزئية البرمجية من جملة الطباعة(a@)١)تعني ان المصفوفة‎ 
سوف تعامل على انها سلسلة نصية عادية وليس لها علاقة بالرفرنس من قريب او بعيد‎ 


PSrL ArrAys 
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How to iterate over the array 


جیل الگرار کے لا الیرل کے الى فمين هما 


1-for 
2-foreach 
القسم الاول هو القسم المعروف لدى اغلب المبرمجين‎ 
القسم الثاني هو القسم الذي نحن بصدد مناقشته وهو القسم الذي يستعمل غالبا في برمجة المصفوفات‎ 
رطر ا دل ها ارب ار می کون کا لي‎ 
*Code(75) 
@a=("blackray", "Striker", "Storm", "mutantiOn",""Snix"); 
foreach $a(@a){ 
print $a,"\n"'; 
1 


Figqure(51) 


How to do math with foreach 


من الممكن ان تقوم ببعض العمليات الرياضية في جملة التكرار إعجءإه] يعني من الممكن ان تتم عملية الجمع و 


والطرح 
الاول علمية الجمع 
*Code(76)‏ 
@a=("1", "2", "3", "4");‏ 
foreach $a(@a){‏ 
ga++;‏ 
print $a;‏ 
1 


Parl ArrAys 


P3rL CockBook SaXaphOnE PlaYer Theory 


الان لو تم تنفيذ هدا الكود سوف يتم ملاحظة يتم زيادة عناصر المصفوفة بمقدار وأحد وهذه اللصورة الناتجة من 


Figure(52) 


هذا ما كان يتعلق بعملية الجمع 


اما ما يخص عمليات الطرح فأنه من الممكن ان تتم تمثيلها برمجيا كما يلي من خلال هذا الكود الاتي 


Figure(53) 
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How to make foreach for a Referenced array 


من خلال استعمال جملة التكرار طعجء١ه]‏ من الممكن ان تتمكن من طباعة العناصر للمصفوفة التي تم عمل 
م٣nعاءfمr‏ وتتم العملية برمجيا كما يلي 
*Code(77)‏ 
@a=( "spawn‏ 
sa_ref=\@a;‏ 
foreach $a(@$a_ref){‏ 
print "$a are the fr34k programmers of programming-fr34ks","\n";‏ 


j} 


Pr If rr Ir 


, storm", 


rr Ir 


striker", "mutantiO0n"); 


الان لو تم تنفيذ هذا البرنامج فأن ناتج التنفيذ منه سوف يكون كما يلي في الصورة الاتية 


Figure(54) 
الان ستتناول الخطوات الاتية الفقرات البرمجيةالمبهمة نوعاما‎ 
الفقرة الاولى‎ 


*Code(78) 
$a_ref=\@a; 
$_إ٠۴ في هذه الفقرة البرمجية تم أسناد هذه المصفوفة التي تحمل الاسم ج الى متغير اخر يحمل الاسم‎ 
تذدکر دائما انه کل متغیر مهما کان‎ 


1-scalar 
2-array 
3-hash 
فأن هذا يعني انه المتغير الموجود في هذا المقطع البرمجي انه متغير تم أسناده الى رفرنس‎ 
الفقرة الثانية‎ 
*Code(79) 


foreach $a(@S$a_ref){ 


Parl ArrAys 
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في هذه الفقرة البرمجية تم أستعمال جملة التكرار لمتغير من داخل المصفوفة على المتغير الذي تم أسناده لكي 
يكون رفرنس او مصدر للمصفوفة التي تم أسناده اليه 
How to sort‏ 


الان في هذا الموضوع سوف يكون المحور البرمجي حول الترتيب في داخل المصفوفة كيف يتم كيف يكون 
والتمثيل البرمجى لمثل هذه الحالات هو كما يلى 

*Code(80) ۰ ٠ 
@a=("striker","storm","dj","snix","mutantiOn"); 


print "@a'"'; 
print "\n" 


print sort(@a); 
طباعة اليكم صورة التنفيذ‎ 


Figure(55) 
من النظرة الاولى الى صورة البرنامج من الممكن ان يتم ملاحظة الفرق بين جملتي الطباعة‎ 
ولكن هنالك خاصية أخرى في دالة ال ٤0ء وهي كما يلي في هذه الفقرة البرمجية‎ 


Figure(56) 
وغل الرغم من أنه الحرف الاول منها يأتي في‎ ahmed ySpawn la لاحظ انه في هذا المثال يو جد كلمتين‎ 
قبل الحرف الاول الموجود في كلمة سباون ولكن عن التنفيذ تأتي كلمة سباون قبل كلمة احمد؟؟‎ 
تختلف حيث في هذه الدالة تكون الحروف الكبيرة تكون لها الاولوية في‎ [t6 as٥ السبب في هذه العملية انه ال‎ 
في التنفيذ اي‎ 
upper case comes b4 the lower case 


Park # 
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How to enumerate the elements 


كبر من ان يتم عده فكريا او بواسطة اليد فأنه فر هذه الحالة لغة البيرل قد رفرت دالة تفرم بهذه العملية وهي دالة 
ال اةاةءء ويكون اسلوب تمثيلها البرمجي العام كما يلي من خلال هذا الكود 


*Code(81) 
@a=("dj"", "Spawn", "SniIx", "stOrm'"", "Striker", r Df", "SG", "google", "balckray'"", "mutatiÛn"", 1 r و‎ e "4 
a 
print (scalar(@a)); 
الان لو تم تنفيذ هذا الكود الموجود في الاعلى فأن ناتج تنفيذه هو كما يلي في الصورة الاتية‎ 
Figqure(57) 
How to pop 


سبق و ان تم في الصفحات القليلة السابقة انه اذا اردت انه ان تعرف ما هو العنصر الاخير من المصفوفة التي 

تقوم ببرمجتها هنالك متغير خاص يقوم بهذه المهمة وهو nllتغıر $#ARRAYNAME‏ 

أما اذا لم تكن من محبي هذه الطريقة فأنه توجد دالة مبنية داخليا في لغة البيرل تقوم بهذه العملية وهي الدالة رهم 

أما اسلوب تمثيل هذه الدالة برمجيا فأنه يكون كما يلى فى هذا الكود 

*Code(82) ۰ 

@a=("perl","c","php","python","ruby"); 
print pOop(@a); 


الان لو تم تنفيذ هذا الكود فأنه الناتج منه يكون كما يلي في الصورة الاتية 


Figure(58) 
الان لاحظ عندما تم تنفيذ هذا الكود فأنه الذي سيحدتث في الكود هو فعلا ما يحدث عندما يتم استعمال المتغير‎ 
الحالتين يتم أعادة الاخير الذي يكون موجود في المصفوفة وفي كل‎ OEY N چڪ‎ 


P3rL CockBook SaXaphOnE PlaYer Theory 


Parl ArrAys 


How to push 


ا ی یک ب ا ی ی 
المصفوفة ولهذا فأن البيرل قد وفرت دالة تعمل على حل هكذا نوع المشاكل التي قد يقع بها بعض المبرمجين 
وهذه الدالة هي دالة ال طونم ويكون اسلوب تمثيلها البرمجي كما يلي في هذا الكودة 


@a = ("StOrm "Striker", "Snix"); 


*Code(83) 


print "@a'"'; 

print "\n", 

push (@a,"SpAwWN"); 
print "@a'"'; 


الان لاحظ لم تنفيذ الكود الموجود في الاعلى فأن الناتج من عملية تنفيذه هو سوف يكون كما يلي 


Figure(59) 
ان استعمال دالة دفع العنصر الجديد وعندما تم استعمالها وتم طباعة المصفوفة مرة اخرى تمت أضافة العنصر‎ 
الذي اردنا ان نقوم بعملية اضافته‎ 


Parl ArrAys 
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How to add commas 


الان لو كتبت اي مصفوفة ولتكن هذه المصفوفة في الكود الاتي 
*Code(84)‏ 
o "41‏ ا 1" @a=("dj"", "Spawn "SniIx", "stOrm'"", "Striker", "Df", "SG", "google", "balckray'"", "mutatiOn"",‏ 
5 


وقمت بطباعة هذه المصفوفة فأن الناتج من طباعتها هو ألاتي في الصورة الاتية 


Figure(60) 
مع بعضها لذا فانه لابد من حل لهكذا نوع المشاكل وعند هذه النقطة فان لغة البيرل تزودك بدالة مهمة جدا هي‎ 
دالة الربط او ما تعرف بأسم دالة ال ذز‎ 
ويكون التمثيل البرمجي العام لهذا النوع من الدوال كما يلي في هذا الكود‎ 
*Code(85) 
@a=("'dj"", "Spawn "SniIx", "stOrm'"", "Striker", "Df", "SG", "google", "balckray'"", "mutatiÛn'"", "1 ٤ د ا‎ "41 
5 
print (Goin (",",@a)); 
print "\n"; 
# or u can use this way if u want 
@a=("dj"", "Spawn . "SniIx", "stOrm'"", "Striker", "Df", SG, "google", "balckray'"", "mutatiOn"", "1 ا‎ e "41 
o 
print (fjoin ("-",@a)); 
الان لو تم تنفيد البرنامج الموجود في الاعلى فأن الناتج من عملية تنفيذه يكون كما يلي في الصورة الهاي‎ 
join توضح عمل الدالة‎ 


Figqure(61) 


rrAys 
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How to reverse 


الان سوف نتكلم عن الطريقة التي يتم استعمالها من أجل ان یتم عکس عناصر المصفوفة وهذه الطريفة تتم من 
خلال استعمال الدالة الخاصة بهذه العملية وهي دالة ال مویإ مرم ويكون تمثيلها البرمجي كما يلي من خلال هذا 


الود الاتی 
*Code(86)‏ 


@a=("C","perl","python"); 

print (reverse(@ad)); 

الان لو تم تنفيذ هذا الكود فأن الناتح منه يكون كما يلي هذه الصورة الاتية حيث تلاحظ انه سوف يتم عكس ترتيب 
العناصر اك التنفيذ اليكم الصورة 


Figqure(62) 
هذه هي الطريقة الاولى التي يتم استعمالها مع دالة العكس وهذا النوع الاول من طريقة العكس احب اطلق عليها‎ 
the ordered reversing ٺم‎ 
حيث هنالك طريفة اخرى تستعمل لعكس محتوى المصفوفة ويتم تمثيل هذه الطريقة كما يلي من خلال هذا الكود‎ 
الاي‎ 


*Code(87) 


@a=("python","C","perl"); 
prev=reverse(@a); 
print $rev; 


الان لو تم تنفيذ هذا الكود الاتي فأن الناتج عملية التنفيذ هي كما يلي في هذا الكود الاتي 


Figure(63) 
تلاحظ تنفيذ الطريقة البرمجية الثانية الخاص بدالة ال ممم فأنها تعمل على عكس الموقع اي الموقع الاخير‎ 
الاول والحرف الاخير من الكلمة التي ستعكس يصبح الحرف الاول ولكن هذا النوع من الاستعمال غير دارج‎ 
كثيرا في استعمالات دالة العكس حيث الاستعمال الرسمي لهذه الدالة يكون في الطريقة الاولى‎ 
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How to shift 


تقليص عدد العناصر الموجودة في المصفوفة بمقدار واحد اي يكون اسلوب البرمجي الخاص بها يكون كما يلي في 


*Code(88) 


@a=("storm","spawn", "Striker", "Snix"); 
print (shift(@a)); 
print "\n"; 
print @a; 
الان عندما يتم تنفيد هذا البرنامج لاحظ كيف يتم اعادة العنصر الاول من المصفوفة وايضا انقاص عدد عناصر‎ 
المصفوفة بمقدار وأحد وهده الصورة الناتجة من تنفيذ البرنامج‎ 


Figqure(64) 


Parl ArrAys 
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How to delete 


في هذا الموضوع سوف يكون المحور البرمجي عن كيفية التحكم في عدد عناصر المصفوفة وكيف يتم انقاص او 
مسح العناصرالموجودة داخل المصفوفة وتتم هذه العملية عن طریق استعمال الدالة ال ماع 


رکون التققل ال رمح لد الال ھی کھا لے کے مالکد 
*Code(89) ۰ ٠‏ 
@a=("Python","C","perl","ruby");‏ 

delete($a]2]); 

print "@a'", "\n"; 


الان لو تم تنفيذ هدا الكود فأن ناتج تنفيذه هو كما يلي في الصورة الاتية في الشكل أدناه 


Figure(65) 
الان لاحظ الى الشكل تلاحظ انه عند طباعة المصفوفة تم الغاء العنصر الثالث الذي كان موجود في المصفوفة قبل‎ 


ان يتم استعمال دالة المسح معها 
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How to grep 


على الرغم من ان هذه الدالة يكون أغلب استعمالها البرمجي مع خواص ما يتعلق ببرمجة ال مع مالا انه 
بالرغم من هذا ايضا تستعمل في برمجة المصفوفات وايضا عن استعمالها مع المصفوفات تبقى الخواص التي 
ا یو00 ا ا و ا 0 و ا ا 


*Code(90) 


@a=("spawn", "Storm", "Striker","snix" 
print (grep /“S/,@a); 
الان لاحظ انه لو تم تنفيذ هذا البرماج فأن الناتج من عملية التنفيذ هو كما يلي في الصورة الاتية‎ 


Figure(66) 
ناتج تنفيذ هذا الكود الاتي هو انه يقوم بطباعة الناتج الذي في الاعلى والسبب في أنه لم يطبع كل الكلمات التي تبدا‎ 
بحرف ال و لانه تم تحديد الحرف و في حالته الكبيرة :الان لو أردت ان تطبع كافة عناصر المصفوفة من دون‎ 
اخذ اي اعتبار لحالة الاحرف فعليك ان تضيف الاتي الى الكود‎ 


*Code(91) 


@a=("spawn",""Storm","Striker","snix"); 
print (grep /“S/i,@a); 


الان ناتج تنفيذ هذا الكود هو كما يلي في هذه الصورة الاتية 


Figure(67 
ا ا ا فر فو ای ل 0 حال الأحرف فى حالة التعاير القاسية تم طباعة كل‎ 
العناصر الموجودة في المصفوفة‎ 
الجدول الاتي سيوضح الاختصارات والمعرفات الموجودة د في الكود‎ 
ت الايعاز الشرح‎ 


1 1 اهمال حالة الاحرف التي تكون موجودة في المصفوفة اي لايهتم اذا كانت الاحرف كبيرة 
او كانت صغیرة 

۸ هذا المعرف يعني عند المطابقة تتم من بداية الكلمة 

$ هذا المعرف يعني عند المطابقة يجب ان تتم هذه المطابقة من نهاية الكلمة 
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وفيما يتعلق في هذا الجدول سيتم شرح كل هذه المعرفات و ال كامطعمه في كتاب خاص سيتناول برمجة التعابير 
القياسية في لغة البيرل حيت سيتم شرح هذه الامور بالتفصيل 


How to unshift 


هذه الدالة لاتعمل كما تعمل دالة ال ۴ء كما يظن البعض ولكن هذه الدالة تعتبر دالة معاكسة لعمل دالة ال إئuام‏ 
اذ ان دالة ال طونم تعمل على اضافة العناصر الموجودة فيها الىاخر المصفوفة أما دالة ال نطوم فأن اسلوب 
تمثيلها وعملها البرمجي يكون كما يلي في الكود اللاتي 
*Code(92)‏ 
@a=("spawn",""perl","Storm","C");‏ 
Şadd=unshift(@a,"Striker","python");‏ 
print @a;‏ 


الان لاحظ تم تنفيذ هذا البرنامج الموجود في الاعلى فأن الناتج سيكون كما في الصورة الاتية 


Figqure(68) 
unshift لاحظ الان أنه عندما تم تنفيد هدا الكود تم اضافة العناصر الموجودة کش جملة البرمجة اأخاصة بال‎ 
ماuئإ الى بداية المصفوفة وعلى عكس ما تقوم به دالة ال‎ 
مuئإ ولهذا يتم اعتبار هذه الدالة هي الدالة المعاكسة لدالة ال‎ 
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How to shuffle 


الان لو كنات لديك مصفوفة واردت ان تولد عناصر عشوائية من هذه المصفوفة ففى هذه الحالة عليك ان تلجاً الى 
الموديلات الجاهزة الموجودة على شبكة ال رهم لذا في هذه الحالة سوف نلجأ الى استعمال موديل ال [ن ::151 
*Code(93)‏ 

use List:: Util qw(shuffle); 
@array=("spawn","snix","storm","Striker","dj"); 
@array = shuffle(@array); 
print @array; 


الان لو تم تنفيذ هذا السكريبت البرمجي فأن الناتج من تنفيذ هذا السكريبت البرمجي كما يلي في هذه الصورة الاتية 


Figure(69) 
الان تلاحظ عندما تم تنفيذ هذا السطر البرمجي فأن ناتج تنفيذه يكون عشوائي الخروج وفي كل مرة يتم تنفيذ هذا‎ 
السكر بيت الرمجى يتم طاعة النصفرفة بشكل غشرائي مختلف فن الأخز‎ 
وهکذا یکون اسلوب عملها‎ 
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P3rL CockBook SaXaphOnE PlaYer Theory 


How to lock array 


في هذا الموضوع سوف نتكلم عن كيفية قفل المصفوفة عن طريق استعمال موديل خاص يقوم بهذه العملية أي انه 
تصبح المصفوفة صالحة للقراءة فقط اي لا تكون تملك القدرة على اضافة اليها اي شئ من عناصر او تعدیلات 
وتتم هذه العملية كما يلي من خلال هذا الكود الاتي 
*Code(94)‏ 
use Array::Lock qw(lock_array);‏ 
@array=("Spawn","perl");‏ 
lock_array(@array);‏ 
push(@array,"programming-fr34ks");‏ 
print @array;‏ 
print "\n";‏ 
الان تلاحظ من سياق البرنامج العام انه تم قفل المصفوفة وعلى الرغم من انه استعملنا دالة الدفع لكي نضيف 
عنصر جديد الى المصفوفة ولكن لاحظ ما الدي يجري عندما ترید القيام بهذا الصورة الاتية توضح ما الذي سوف 
پجر ی 


Figqure(70) 
تلاحظ من الصورة الاتية انه التعريف الخاص بدالة ال اوم لن يتم لانه الدالة حاليا مقفلة وتسمح لك بالقراءة فقط‎ 
في ترما المصفرقات العا من الكن إن ير فما عضر من حال آل خا اخری الک ف كرد الر مح‎ 
الدي سوف يوضح مالذدي أعنيه‎ 


*code(95) 
@a=(""programming-freaks"); 
$a[0]="programming-fr34ks"; 


print @a; 
print "\n"; 


الصورة الاتية سوف توضح ناتج تنفيذ هذا البرنامج 


Figqure(71) 


PSrL ArrAys 


P3rL CockBook SaXaphOnE PlaYer Theory 


وهذا يعني ان البيرل تسمح لك بأن تقوم بتبديل برمجة العناصر الموجودة داخل المصفوفة ولكن مع هذا الموديل 
الذي نتعامل معه هذه العملية تعتبر غير مسموحة لانه المصفو فة فقط للقراءة اي انه من غير الممكن ان تقوم ب 
بتبديل القيم التي تحملها العناصر الكود الاتي سوف يوضح الطريفة بشكل افضل 
*Code(96)‏ 
use Array::Lock qw (lock_array);‏ 
@a=("programming-freaks");‏ 
lock_array (@a);‏ 


$a[0]="programming-fr34ks"'; 
print @a; 


الان لاحظ انه لو تم تنفيذ هذا البرنامج فأنك سوف تحصل على رسالة تشبه تماما الرسالة التي كنت قد حصلت 
عليها من البرنامج السابق وهي الرسالة الاتية التي تفيد بانه المصفوفة للقراءة فقط 


Figure(72) 


rrAys 


P3rL CockBook SaXaphOnE PlaYer Theory 


How to unlock 


من الممكن ان يتم ابطال هذه الخاصية من خلال استعمال دالة اخرى من داخل هذا الموديل وهي دالة ال 
ary‏ _ockاun‏ والكود الاتي يوضح كيفية تمثيل هذه الطريقة 
*Code(97)‏ 
use Array: :Lock qw (unlock_array);‏ 
@a=("programming-freaks");‏ 
unlock_array (@a);‏ 


$a[0]="programming-fr34ks"; 
print @a; 


الان لو تقوم بتنفيذ هذا الكود سوف تلاحظ انه سوف يسمح لك بالقيام باستبدال القيم و الصورة الاتية توضح كيفية 
أتمام هذه العملية وكيف اصبح من الممكن ان يتم تغيير عناصر المصفوفة 


Figqure(73) 


The Array Utils 


الان في هذا الموضوع سوف نناقش اساليب خاصة عن كيفية التلاعب بالمصفوفات الان سوق يكون النقاش عن 
موضوع وهو عن كيفية ايجاد العناصر المختلفة الموجودة في مصفوفتين أي ان يتم عمل مقارنة ويتم نبذ المتشابه 


الطريقة 
*Code(98)‏ 
use Array:: Utils qw(:alD);‏ 
@a =("spawn",'""perl","programmer");‏ 
@b =("StOrm","C","programmer");‏ 
@diff = array_diff(@a, @b);‏ 
print "@diff","\n";‏ 


الان لاحظ انه لو تم تنفيذ هذا البرنامج فأن ناتج تنفيذه سوف يكون كما يلي في الصورة الاتية 


Parl ArrAys 


P3rL CockBook SaXaphOnE PlaYer Theory 


Figqure(74) 
لانه كلمة موجودة في كل المصفوفتين ولكن كل من‎ programmer ةمٹlک تلاحظ کناتج للتنفيذ فانه يتن حذف اهمال‎ 
لم یتم اهمالها لانه كلمات غير مشتركة بين المصفوفتين تجدر الاشارة الى فقرة‎ spawnperlstOrmc هذه الكلمات‎ 
مهمة هذه الفقرة من الممكن ان يتم تطبيقها على مصفوفتين فقط اي لايجوز ان يتم تطبيقها على اكثر من‎ 


Parl ArrAys 


P3rL CockBook SaXaphOnE PlaYer Theory 


How to intersect 


الغير متشابهة ولكن هنا في هذا الموضوع سوف نعمل العكس تماما سوف نقوم بطباعة العناصر المتشابهة وترك 

او نبد العناصر المختلفة وتتم هده الطريقة عن طريق نفس الموديل الذي تم استعماله في الاعلى ولكن من خلال 
دالة أخرى اما عن التمثيل البرمجي الخاص بهذه العملية يتم كما يلي من خلال هذا الكود 

*Code(99) 

use Array:: Utils qw(:alD); 

@a=("mutantiOn","ruby","programmer","pf member"); 

@b=(""Striker","python","programmer","pf member"); 

my @c = کک‎ @D); 

print "@c","\ 


أما عن ناتج تنفيذ البرنامج فانه موضح كما في الشكل التالي 


Figqure(75) 
ا الصورة كيف تم اأعتماد العناصر المتشابهة ونبد المختلفة‎ 


rrAys 
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How to unique 


هذا المضوع ايضا يكون بخصوص بر مجة العناصر وترك المتشابهة واعتماد المختلفة هو يشبه الموضوع الذي تم 

ذكره قبل قليل ولكن فيه لعض الاختلافات على كل الموديل الذي يكون مسؤول عن هذه العملية هو 
111€ : :هاه ويكون التمثيل البرمجي العام لهذا الموديل كما يلي 

*Code(100) 

use Array: : Unique; 

tie @a, ‘Array: : Unique'; 

@a=("a","b","c","d",1,2,3); 

push(@a,"a","c","e",1,2,7,5); 

print @a; 


الان لو تم تنفيذ هذا البرنامج فان ناتجه سوف يعرض كل عنصر مرة واحدة حتى لو تم اخبار المصفوفة من خلال 
دالة ال طونم ان يتم اضافة عنصر مكرر الى المصفوفة فانه العنصر هذا لن يتم اضافته وناتج تنفيذ البرنامج هو 
كما يلي في الصورة الاتية 


Figure(76 
SS في هذا البرنامج تم استعمال دالة ال ع لانه هذه‎ 
الى حزمة او معة)ءهملاحظ فقرة مهمة هي انه كل موديل برمجي في كل لغة البيرل يكون مكون من باكيج ولكن‎ 
عن سبب استعمال هذا النوع من البرمجة في بعض الموديلات وعدم أستخدامه في البعض الاخر ذلك يعود الى‎ 
استعرضة سوف تلاحظ انه مكون مما ا‎ array::unique كيفية برمجة الموديل الان اذهب الى الموديل‎ 


blIb 


Figqure(77) 
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الان لو تم فتح هذا المجلد المحاط بالشكل الدائري سوف يكون مكون من مجلد اخر ايضا هو 


Figqure(78) 
و عندما يتم فتح هدا الملف نلاحظ انه يحتوي بداخله على ملف الموديل الفعلي الان سيتم فتح الملف الفعلي للموديل‎ 
وسيتم ملاحظة مما يتكون هذا الملف‎ 


package Array: :Unique; 


USE 5.UUG, 
use Strict; 
use warnings ; 
use Larp; 


Figqure(79) 
كل موديل يتكون من حزمة تشير اليه على كل نحن الان لسنا بصدد برمجة الحزم اذنن سبب استعمال دالة ال ع1‎ 
في البرنامج هو من أجل ان يتم أسناد المتغير الذي كان من نوع مصفوفة الى الحزمة المشار اليها في الشكل اعلاه‎ 


P3rL CockBook SaXaphOnE PlaYer Theory 


The array trIx 


اما الان بعد ان تم معرفة كيفية برمجة المصفوفات في لغة البيرل اصبح من المعروف الان لدى المبرمج انه عندما 
يلاحظ مصفو فة تشبه هذه المصفوفة الموجود في الكود انه يتعامل مع مصفوفة مكونة من 3 عناصر 

*Code(101) 
@a=(1,2,3); 


اما لو كانت لدیه مثل هذه 
*Code(102)‏ 


@a=(1,2,3,J; 


عند هذه الحالة يتوقع المبرمج انه يتعامل مع مصفوفة مكونة من 3 عناصر معرفة اما العنصر الاخير فهو عنصر 
11 ولكن في الواقع لايوجد عنصر رابع هذه المصفوفة هي تماما كالمصفوفة الموجودة في الكود الاول لايو جد 
اي فرق برمجي بين هاذين النوعيين من المصفوفات 


ادا کان المقطع البرمجي يحتوي على مصفوفة مثل هذه المصفوفة 
*Code(103)‏ 


@a (1 0, 7); 


هذه مصفوفة هي مصفوفة عادية مكونة من خمسة عناصر 
اما اذا كانت لديك مصفوفة مثل هذه المصفوفة 
*Code(104)‏ 
@a=(1..7);‏ 
اما مصفو فة مثل هذه المصفوفة فلا يجب ان يعتريك الشك على انه هذه مصفوفة مكونة من عنصرين فقط هما 
الواحد و السبعة بل على العكس هي مصفوفة مكونة من عدد من العناصر وتكون بداية هذه العناصر من الواحد 
وتنتهي بالرقم 7 
وهنا ايضا لايوجد فرق برمجي بين هذين النوعين من البرمجة التنسيقية لعناصر المصفوفة 


Hashes 


النوع الاخير من برمجة المتغيرات في لغة البيرل هي المتغيرات التي تكون من نوع كئماوهط حيث يمثل هذا 
من المتغیرات بزوج من ال ue‏ اھ۷/رع) 
يكون التمثيل البرمجي العام لبرمجة الهاش كما يلي في الكود الاتي 


*Code(105) 
%ohash = ( 
StOrm => "C programmer", 
Striker = > "Python programmer", 
Mutantion => "Ruby programmer", 
Spawn => "perl programmer" 
J; 
هذا بالنسبة للتمثيل البرمجي العام للمتغيرات التي تكون من نوع الهاش‎ 
اما عن كيفية طباعة هذا النوع المتغيرات فأنه يتم كما يلي من خلال هذا الكود‎ 
*Code(106) 
%ohash = ( 
StOrm => "C programmer", 
Striker = > "Python programmer", 
Mutantion => "Ruby programmer", 
Spawn => "perl programmer" 
J 
print $Şhash{Spawn}; 


الان لو تم تنفيذ هذا البرنامج فان ناتج تنفيذه يكون كما هو ظاهر في الصورة الاتية 


Figure(80) 


PSrL #HaSh¥s 


How to print keys 
في هذا المثال سوف يتم برمجة الكيفية الخاصة بطباعة المفاتيح التي تكون موجودة ومبرمجة في داخل الهاش‎ 
وكما يلي من خلال هذا المثال‎ 


P3rL CockBook SaXaphOnE PlaYer Theory 


*Code(107) 

ohash = ( 
StOrm => "C programmer", 
Striker = > "Python programmer", 
Mutantion => "Ruby programmer", 
Spawn => "perl programmer", 
J; 

print join("-",keys(ohash))); 

print "n"; 


الان لاحظ لو تم تنفيذ هذا البرنامج فأن ناتج تنفيذه يكون كما يلي في الصورة الاتية 

Figqure(81) 
ومن خلال هذا البرنامج وناتج تنفيذه من الممكن ان نخرج بخلاصة وهذه الخلاصة هي انه في الهاش على الدوام‎ 
ان القيم التي تكون على اليسار هي التي تكون المفاتيح او ال كرإه)‎ 


Park HaSh¥s 


How to print values 


P3rL CockBook SaXaphOnE PlaYer Theory 


كما تم ذكر انفا في الصفحات القليلة السابقة ان الهاش في لغة البيرل يكون عبارة عن زوج يحمل قيمتين قمية 
المفتاح وقيمة القيمة وذكرنا كيف يتم طباعة قيمة المفتاح والان حان الوقت لكي يتم ذكر كيف يتم طباعة قيمة 
القيمة الان سناخذ مثال يشبه المثال السابق مع بعض الاختلاف اليكم الكود 


*Code(108) 

ohash = ( 
StOrm => "C programmer", 
Striker = > "Python programmer", 
Mutantion => "Ruby programmer", 
Spawn => "perl programmer", 
J 

print foin('-",values(?ohash))); 

print "\n"'; 


الان لاحظ انه لو تم تنفيذ هذا البرنامج فأن ناتج تنفيذه يكون كما يلي في الصورة الاتية 


Figqure(82) 
اذن الان من هذا البرنامج من الممكن ان يتم الخروج بصيغة وهي انه القيم التي تكون على يسار السهم في داخل‎ 
الهاش هي القيم التابعة للمفاتيح‎ 


PSrL HaSh¥s 


How to make exist 


P3rL CockBook SaXaphOnE PlaYer Theory 


الان لو تعد بعض صفحة او صفحتين الى الوراء سوف تلاحظ انه تم استعمال هذا الكود في اغلب الحالات 


*Code(109) 

ohash = ( 
StOrm => "CG programmer", 
Striker = > "Python programmer", 
Mutantion => "Ruby programmer", 
Spawn => "perl programmer", 
J 


لكن ماذا لو كان هذا الكود الكود مكون من 4 قيم مذا لو كان مكون من 400 قيمة مثلا فأنه من الصعب او 
المستحيل عليك ان تقراً جميع هذه العناصر لكي تتأكد فقط من وجود عنصر لذا ففي متل هذه الحالات فأن لغة 
البيرل قد جنبتك عناء هذه العملية من خلال استعمال دالة تقوم بهذه العملية وهي دالة الوجودية او دالة ال كئأوأ×م 
ويكون التمتيل البرمجي العام لهذه الدالة كما يلي ومن خلال هذا الكود الاتي 


*Code(110) 

ohash = ( 
StOrm => "C programmer", 
Striker = > "Python programmer", 
Mutantion => "Ruby programmer", 
Spawn => "perl programmer", 


J; 
if (exists($hash{ Spawn }){ 
print "this key is exists and it s okk "; 


1 


الان لاحظ انه اذا كانت قيمة هذا المفتاح موجودة في الهاش فأنه سوف يتم طباعة الجملة التي تكون موجودة في 
لا ا ار ا 


Figure(83) 
ولكکن هنالك ملاحظة هامة يجب الاشارة اليها وهي انه في هذه سوف يتم طباعة الجملة الموجودة في الشكل اعلاهہ‎ 
sم2W‎ ١ مهما كانت القيمة التي تم اسنادها الى المفتاح‎ 


Parl YaShE: 


How to delete 
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في هذا الموضوع سوف يتم العمل على مسح مدخل كامل من مداخل العناصر التي تكون موجودة في داخل برمجة 
الهاش وهذه العملية من خلال استعمال دالة ال ععاعل ويكون التمثيل البرمجي العام لهذه الدالة كما يلي من 


هذا الكود الاتي 

*Code(111) 
ohash = ( 

StOrm => "C programmer", 

Striker = > "Python programmer", 

Mutantion => "Ruby programmer", 

Spawn => "perl programmer", 

J; 
delete $hash{Spawn}; 
print %ohash,"\n" 


الان لو تم تنفيذ هذا البرنامج فأن ناتج يكون كما يلي في الصورة الاتية ادناه 


Figure(84) 
الان لاحظ الصورة الموجودة في الاعلى انه عندما تم طباعة الهاش الذي تم ذكره فأنه عندما یتم طباعته سوف كما‎ 
كما تلاحظ ناتجة اأتنفيد لايحتوي‎ perl programmer والقيمة الى تعود لھا و الى هي‎ spawn يقوم بالغاء‎ 
5034۷7 على اي شئ یتعلق ب‎ 


ملاحظة هامة جدا هي انه عليك انه تفرق بين عمل دالتين هما دالة ال ممن ودالة ال امك 
ولكن دالة ءامل تعمل على الغاء العنصر بكامله من الهاش 


P3rL CockBook SaXaphOnE PlaYer Theory 


How to each 


من أسم الموضوع تلاحظ ان الموضوع يحمل اسم غريب اوغامض نوعا ما يعني ما الذي نعني بعنوان ال 

keys من بدایة فصل الهاشات ذکرنا انه اذا اردت ان تطبع مفتاح استعمال دالة ال‎ how to each 

واذا اردت ان قيمة تستعمل دالة ال ومںاج۷ هذه الدالة تعمل على طباعة القيم التابعة للمفاتيح ولكن ما سوف 
يحدث لو أردت ان تعمل على طباعة كل من المفتاح و القيمة في نفس الوقت ومن خلال برنامج واحد ومن خلال 
دالة واحدة اي في هذه الحالة عليك ان تسبعد دوال المفتاح ودوال القيمة لذا في هذه الحالة عليك ان تلجأ الى دالة ال 
each‏ ومن اسم هذه ك و هذه Sl OS a‏ 


*Code(112) 

ohash = ( 
StOrm => "C programmer", 
Striker = > "Python programmer", 
Mutantion => "Ruby programmer", 
Spawn => "perl programmer", 
J 


while(($name,$lang)= و‎ 
print('$name:$lang","\n 


الان لاحظ هذا البرنامج وناتج تنفيذه يكون كما يلي في الصورة الاتية المدرجة أدناه 


Figure(85) 
عندما تلاحظ ناتج تنفيذ هذا البرنامج فأنه بالفعل دالة ال هه تعمل على طباعة قيم المفاتح والقيم المقابلة لها‎ 
ففي هذه الحالة سوف توفر لك الدالة عناء كتابة برنامجين في برنامج واحد واختصار عمل دالتين في دالة واحدة‎ 


P3rL CockBook SaXaphOnE PlaYer Theory 


How to sort 
والتي تم شرحها عملها في الفصول السابقة ولكن هنا‎ 50۲٤ الدالة التي تستخدم في عمليات الترتيب هي دالة ال‎ 
في موضوع برمجة الهاشات الموضوع يختلف من ناحيتين‎ 
الناحية الاولى سوف يتم استعمال دالتين‎ 
الناحية الثانية الهاشات كما ذكرنا هي عبارة عن ازواج اي مفتاح و قيمة‎ 


و الان برمجة القسم الاول تتم كما يلي من خلال هذا الكود الاتي 


*Code(113) 

%ohash = ( 
StOrm => "C programmer", 
striker = > "Python programmer", 
mutantion => "Ruby programmer", 
spawn => "perl programmer", 
J; 

print sort(keys(?ohash),"\n"); 


الان لاحظ لو تم تنفيذ هذا البرنامج فأن ناتج التنفيذ سوف يكون مشابه لما موجود في الصورة ادناه 


Figure(86) 
في هذا البرنامج تلاحظ انه تم دمج بين دالتين هما دالة الترتيب وهي دالة ال ٣0ء والدالة التي تستعمل من أجل‎ 
طباعة قيم المفاتيح وهي دالة ال ئره) ولاحظ حتى في برمجة الهاشات الاحرف ذات الصيغة الكبيرة تكون‎ 
لها اسبقية على الاحرف التي تكون لها صيغة صغيرة‎ 


P3rL CockBook SaXaphOnE PlaYer Theory 


How to merge 


سيكون المحور البرمجي لهذا الموضوع هو عن كيفية دمج هاش مع هاش وهذه العملية يكون تمتيلها البرمجي كما 
یلی من خلال هذا الكود 
*Code(114)‏ 
%ofr34Kk1 = (‏ 
StOrm =>"C programmer",‏ 
Spawn => "perl programmer",‏ 


J; 
ofr34K2 =( 
Striker = > "python programmer", 
Mutantion => "Ruby programmer", 
ofr34ks - (eofr34k1,9ofr34K2); 


while (($name,$lang)=each(?éofr34ks)){ 
print ("“$name:$lang","\n" 


حك البرنامج الموجود اعلاه انه لدینا هاشین وکل هاش مکون من عنصرين والخطوة التالية هي يتم اعتبارها 
*Code(115)‏ 
ofr34Kks = (@eofr34k1,ofr34K2);‏ 
هذه الخطوة التي تجمع بين الهاشين ويتم توحيدهم في هاش برمجي واحد ومن ثم من أجل طباعة الهاش الذي 
يحمل الهاشين تم استعمال دالة ال إCةم‏ 
والان لو تم تنفيذ هذا البرنامج فأن ناتج تنفيذه سوف يكون كما يلي في الصورة الاتية ادناه 


Figqure(87) 
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How to add element 


في هذا الموضوع سوف يكون الاتجاه البرمجي في هذا الموضوع هو كيف تقوكم باضافة عنصر مفتاح وقيمة الى 
الهاش وهذه العملية تتم كما يلي من خلال هذا البرنامج الاتي 
*code(116)‏ 
ohash = (‏ 
Storm =>"C programmer",‏ 
Striker = > "python programmer"‏ 
J;‏ 
$hash{spawn}="perl programmer";‏ 
while (($name,$lang)=each(@é6hash)){‏ 
print ("“$name:$lang","\n"‏ 


عن طریق دال )۴ز sہں‏ 
اليه ولاحظ ناتج تنفيذ البرنامج يكون كما يلي كما في هذه الصورة الاتية 


Figure(88) 
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